(DEFPROP UPGETNU (LAMBDA NIL (PROG (Z) (SETQ Z (READ)) (COND ((NUMBERP Z) (READ) (RETURN Z)) (T (RETURN NIL))))) EXPR)